home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / linkkit / modules.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-22  |  1.9 KB  |  60 lines
  1. #line 1 "modules.d"
  2. /* Module fⁿr CLISP */
  3. /* Bruno Haible 1.4.1995 */
  4.  
  5. /* Alle AbhΣngigkeiten von modules.h werden hier gesammelt! */
  6.  
  7.  
  8. #ifdef NO_CLISP_H
  9.   #include "lispbibl.c"
  10. #else
  11.   #include "clisp.h"
  12. #endif
  13.  
  14. #ifndef DYNAMIC_MODULES
  15.  
  16. /* Anzahl dazugelinkter Module */
  17.  
  18. global var uintC module_count =
  19.   #define MODULE(module_name)  1+
  20.   #include "modules.h"
  21.   #undef MODULE
  22.   0;
  23.  
  24. /* Tabelle der Module: */
  25.   extern uintC subr_tab_data_size;
  26.   extern uintC object_tab_size;
  27.   #define MODULE(module_name)  \
  28.     extern subr_ module__##module_name##__subr_tab[]; \
  29.     extern uintC module__##module_name##__subr_tab_size; \
  30.     extern object module__##module_name##__object_tab[]; \
  31.     extern uintC module__##module_name##__object_tab_size; \
  32.     extern subr_initdata module__##module_name##__subr_tab_initdata[]; \
  33.     extern object_initdata module__##module_name##__object_tab_initdata[]; \
  34.     extern void module__##module_name##__init_function_1(); \
  35.     extern void module__##module_name##__init_function_2();
  36.   #include "modules.h"
  37.   #undef MODULE
  38.   global module_ modules[] =
  39.     { { "clisp",
  40.         (subr_*)&subr_tab_data, &subr_tab_data_size,
  41.         (object*)&object_tab, &object_tab_size,
  42.         TRUE, NULL, NULL, NULL, NULL
  43.       },
  44.       #define MODULE(module_name)  \
  45.         { STRING(module_name), \
  46.           &module__##module_name##__subr_tab[0], &module__##module_name##__subr_tab_size, \
  47.           &module__##module_name##__object_tab[0], &module__##module_name##__object_tab_size, \
  48.           FALSE, \
  49.           &module__##module_name##__subr_tab_initdata[0], \
  50.           &module__##module_name##__object_tab_initdata[0], \
  51.           &module__##module_name##__init_function_1, \
  52.           &module__##module_name##__init_function_2 \
  53.         },
  54.       #include "modules.h"
  55.       #undef MODULE
  56.       { NULL, NULL, NULL, NULL, NULL, FALSE, NULL, NULL, NULL, NULL }
  57.     };
  58.  
  59. #endif
  60.